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inquire one’ then to restore ethos, to (SYSS$SYSDEVICE:)"' 
sysdevice: 


inquire med ban) Hea Backup media (ddcu:)"’ 
if fSlocate(':; _nnndie). ne.fSlen(media) then goto dosysave 


retry1: 
if be nes,’”* then goto checkquota 
write sys$output ‘ unt bystee specific save media on drive ‘'media'’’ 
jours ask ‘* Are you 
not. gsk then goto retry! 
na med tyseye 
nount/forei d 
osysa 
if pl. +a **" then goto checkquota 
on error then continue 
create/dir sys sysroot: Csysexe.old] 
backup/verify ‘media'sysexe.sav/save sys$sysroot:(Csysexe.old]*.*;*/owner=(1,4) 
on error then continue 
create/dir ive syerogts Csysmgr.old) 
backup/verify ‘media’ syener, -Sav/save sysSeyerect: :Csysmgr.old)*.*;*/owner=(1,4] 
a ve locate”: :"*,media).ne.f$len(media) then goto next “uic 
a 


c 


Soe -ererce-t ec-es 708 -se-> 


esa-~ 


echauetat 
xt_uic: 
nquire ask ‘Are there any user save sets" 
“not. ask then ger? endit . 
nquire vic “Vic for the saveset (Cann,nnnj)' 
cnam=uic@"'["'="" 
qanectsiccovet **,uicnam) 
icnam=fSextra act (oO 0,comma,uicnam)+''_''+f$extract (commati, f$length(uicnam) ,uicnam) 
f f$locate("'::"*,media).ne.f$len(media) then goto dobackup 


RITE SYSSOUTPUT "Please place first diskette for user ‘‘uic’ in drive "*media'’’' 
nquire ask ‘'* Are you ready" 

-not. ask then goto retry 

$ mount/forei ‘media 

Sdobackup: 


ee mt ase 
~~ 


eieapall Ietietipnabutiatincaiett 
==65 —coc 
~ 


set noon 
backup/verify ‘media'‘uicnam’.sav/save ‘input'(*...J*.*;*/owner=C'uic'] 


PRHOM 


set on 

if fSlocate('':: **,media).ne.f$len(media) then goto next_uic 
$ dism ‘media 

soto next auic 


ay 
Fertlion A eeerer User Restore complete treet’ 
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